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ILLINOIS CODE 87 - Ak 



1.7 Precision Floating Binary Arithmetic with 
Floating Decimal Conversion (D.O.I, or SADOl) 
Interpretive routine, entered like a closed subroutine 
280 

Location specified by preset parameter S3 
12 locations, S3 to 11S3 
See Order Code 

Rounded to 68 binary places, equivalent to about 20 
significant decimals. Print out is rounded. 
S3 ; during input location 3 must contain t x 2 
where t is the location of the first word of temporary 
storage » 

This routine is designed to do computations where 
accuracies of twelve to twenty significant decimals are 
required and where scaling is enough of a problem to 
justify the use of a floating point routine. This inter- 
pretive routine arranges arithmetic operations upon 
numbers represented in the form (x) 2 x where - 512 < 



,-39 



E < 512 x 
x l 



< 1. However, numbers are input and 




output in the form z x 10- where -1 < z < 1 and 
|p| < 153 « The modulus of the numbers x has 68 binary 
digits . When a number X = x 2 x is stored in two 
successive memory locations n, n+1, (or for simplicity 
say stored at n ), it takes on the following standard 
form: 

n+1 



where x. 




> 



X = (x + 2" 39 x. 

-1 -37 
2 - 2 . The latter inequality is a consequence of the way c?rtain scaling is 



1 -39 
ix 1+ d x 2 



*o > 0. - 512 < E < 512 and 1 > 
iu 
done. Note that the exponent E is situated in the right hand address of location 
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n+1. This enables us to use a k2 order to extract the exponent. 

When numbers (z-j^ + 2 Jy z ) 2 z are stored in the 
floating accumulator, three locations are used and the representation is changed!] 

N(2S3) = 2" 59 (E z + 512) = 2" 39 (E + 512) 

N(S3) = Zl /2 = y x 

N(1S3) = z 2 /2 = y 2 
Hence the floating accumulator holds Y = z/2. When they are stored they are put 
in standard form. 

Henceforth it is assumed that Y is the content of the 
floating accumulator and X is the content of n(and n+l). 

This routine is entered as if it were a closed sub- 
routine and the first interpretive order is the one following the transfer of 
control. It should be noted that the order code of this routine is exactly 
like that of the Floating Decimal Code Al with the exception of the addition of 
the 8L order. 

The order code follows X --- X(n) 

DESCRIPTION 

Replace Y by Y - X 

Replace Y by -X 

Replace Y by Y - jx| 

Select the left nana order at n as the next order 

to be interpreted if Y > 0, otherwise proceed normally. 

Replace Y by Y + X 

Replace Y by X 

Replace Y by Y/X 

Replace Y by XY 

Replace Y and X by the next number on the input tape. 

Numbers are punched as sign (K or S) followed by 

decimal digits up to 23, followed by sign of exponent 

and three decimal digits giving the magnitude of the 

exponent, e.g. 

-102 

S578693218157 S102 = -.578693218157 x 10 



ORDER 


TIME 
(millisec.) 


80 n 


8.2 


81 n 


4.0 


82 n 


7.7 


83 n 


2.7 


Qk n 


7.0 


85 n 


2.8 


86 n 


9.1 


87 n 


6.7 


88 n 





8K n 


3.0 


8S n 




8N n 


3-5 


8J n 


2.8 
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89 n Print Y as sign and n decimal digits, vith a space 

after every 5th digits followed by the sign of the 
exponent base 10 and the three decimal digits of 
the exponent j destroys Y. 

Replace the parameter g by n and record the location 
of the next interpretive order. 
Replace X by Y, having first converted it to 
standard form. 
Null ^ replace Y and X by 

Jump; leave the floating code and transfer control 
to the left hand order at n. 

8F n 3o0 Finish^ replace the parameter g by g-n| if it is 

then positive, select the next order to be inter- 
preted as the one following the last &K order. 
Otherwise, proceed normally. 

8L n 2.k Select the left hand order at n as the next one to 

be interpreted. 

NOTES (l) The first digit of any order may be made instead of 8. 

In this case, the address of that order, n, will be interpreted 
as n-g instead of n. This is of use in coding induction loops „ 

(2) The representation of is 0, thus a pair of clear store 
orders may be used to clear memory space for a 1.7 precision 
floating binary number „ 

(3) Numbers punched on output tape may be read back in by this 
routine • 

(k) Because Y isn't standardized after multiplication and 
division, no more than 7 multiplications or 3 divisions should 
be allowed before the results are stored if one would maintain 
full accuracy o 

(5) One may leave the floating code by means of an 8j (jump) 
order, do a computation, and then return to the floating code 
and execute the order following the 8j order by transferring 
control to the left hand side of 38L in the floating code. 



-If- 

(6) The 8K and 8F orders are special tallying orders which 
may be used to cause a certain group of floating orders (an 
induction loop) to be repeated a pre -determined number of 
times. The integer g is the tally which is used for this 
purpose. The 8K order precedes the induction loop and sets g 
to an initial value. The 8F order follows the induction loop, 
decreases g by the amount of its address after each traversal 
of the loop, and allows the loop to be traversed once more if 
g is then positive. If g is negative, the loop will not be 
traversed again and the floating order following the 8F order 
will be interpreted next. 

If some order of the induction loop has a first digit, 
its address will be treated as n-g when the order 1~ obeyed. 
Since g decreases at each traversal of the induction loop, 
the effective address of this order will be stepped by the 
address of the 8F order each time. 

As an example, suppose it is desired to find the sum of 
the squares of the floating numbers stored at 50, 52, ....,100 
and store it at location 10. Further suppose that the 1.7 pre- 
cision routine starts at the position indicated by the preset 
parameter Sk. Then the following sequence of orders will 
accomplish the task and transfer control to the Ordinary Order 

following . 

25 ^1 10F Clear location 10 
50 25L 

26 26 Sk Enter floating code 
8K 50F Set tally. (Kount) 

27 05 100F 

07 100F Form square and add to the sum. 

28 8^ 10F 
8S 10F 

29 8F 2F Tally to 26 
8J 30L 
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DISCUSSION OF IBS DKEAIIS OF TM CODE 



ADDITION 



MULTIPLICATION 



DIVISION 



ROUND-OFf* 



Since this it* a floating binary code, the only thing necessary 
is to shift the number of the smaller exponent in the A, Q 
number register before adding double precision. 
Let us consider the preauct XY. 



% 



^K 



} (y + 2' 59 y ) 



XY - x y 2^ - *? and xy = (^ + - « ?/ x#1 . _ „ 2 

Let M(U), L{U) be the most and least significant parts of U. 
Then, because ve can use the hold multiply order (7*0* a con- 
venient formula with an average round-off error of ~l/k x 2"^ 
is 



Vi + 2 



-39 



M(x 2 y 1 ) 



+ 2 



-39 



M[x l y 2 



+ 2 



-39 



L(ayr 1 )] 



Due to the method of standardisation used in the store order, 
all ve know £bout x is that 2 - 2 JX < |x| < 1. Therefore, 
it could occur that ;y/x| > 2 and it is necessary to divide y 
by k. Then the following formula holds 

X- y 2*T _ y 2 %"^ + ^ 



x Z 



hx 



where |yAxj < 1. 
Let y/8 «y* 



y^ + 2 ^y 2 *. 



Then the formula 



y/8 



*i* + 2 



'39 



«!. + 2' 59 x 2 



-39 



(l/xj (y*-*^*/^" 5 *) is 



-78 



convenient for computation and has a maximum error of 5 x 2 
for numbers in the range considered, 

Since numbers are represented to only 68 binary digits when 
stored, a round-off is desirable* This is achieved by leaving 
the quantity E x + 512 in place in the 10 digits after 2 . 
Od output the quantity 0.5 x 10" n x vhere n is the address in 
the print order , is generated and added to or subtracted from 
the number (depending upon its sign) before printing it. 
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EXPOKENT CONVERSION 

Numbers are input and output in the floating decimal system 
and operated upon in the floating "binary system. This makes 
exponent conversion necessary. Upon input of Y, we are given 
Y = y lCr and we are required to find E and x: Y = x 2 so 
x hasn't lost precision. 

I INPUT Given y lO 5 to find x 2 E 

Write y 10 P = y 2 P lo ^ 10 = y 2^ (E an integer -1 < q < 0) 
Then ve have x = y 2 ^ so that always y/2 < x < y 
Now consider that y 10^ = x 2 

(a) If p > 0, then [p log 2 lC>] + 1 = E, E < 0, £x = y lO 9 ^ = y -^^l 2 ^ P " E D 

The rule is to multiply y by 10/l6 and if this is less than l/2 
y to scale back by multiplying by 2. After |p| applications, we must have x. 

(b) If p < 0, again £p log loj + 1 = E, E <0 
Now x = y 2i E l/l0' p l = y (8/l0)l p l 2^ ' 3 > p! 

Use the same rule with 8/10 instead of 10/l6. 

II OUTPUT Given x 2 , to find y lO 1 * Here p = £e log 2 J + 1 

2 E / 2 \ E 
(a) If E > 0, y = X ^T~ = x|l0"/ 10 E " P 

Multiply x by 2/l0 and if this i s less than x/lO, scale back by 
multiplying by 10. After |e| applications, we nave y. 

(b) if E <o, y = x vf = x (-f) |E| ioIpI 



Use the same rule with l/2 instead of 2/10. 
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ORDER 


HOTKS WLOT1 





00 5$r 




Font 




I* l£L . 




50 (*)F OOF 


1 


L0 15L 




50 (a+l)F 85 2CP 




^0 2L 




L5 (n+l)F 00 20F 


2 


oo r 








00 F 


By l' 


Selecting orders 


3 


32 10L 









J*6 7L 


From U 


Set orders to get X(n) 


k 


I* 260L 








k6 8L 






5 


10 12F 








Lfc 18L 




Set svitch 


6 


46 1QL 








4l 5S3 




Clear 5S3 for E 


7 


L5 (n)F 


By 31 






J*0 3S3 




Get x 


8 


50 (n+l)F 
35 165L 


3y 4l 




9 


*S 5S3 
L5 5S3 




Separate out exponent 


10 


26 ( )F 


By 6 


To switch 




LO 17L 


From 3 


If order is poeitiy©, subtract g 


u 


22 3L 




from address. 


' 


kO l^L 


From 28 




12 


L5 7L 




Store state of routine and replace g 




46 17L 


from 37 1 


"by n. 


13 


L5 l^L 
22 38L 




» 


Ik 


00 F 








00 F 


By U 1 


Link 


15 


5S F 
S5 F 




(50 nF S5 20F) - (L5 nF 00 20F) 


16 


00 IF 








S5 20F 




Constant 


17 


80 (g)F 







* 
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0EDKR 




SiOEES page 2 


\ ' 


GO F 




■ 
Earajaeter g 


18 


SI lk6h 








22 9fiL 


80 


Hold/ stibtaract 


19 


40 2S3 


31 


Clear, subtract 


. 


22 96L 




. 


... 20 


L5 3S3 


82 


Hold,, subtract 




22 66L 




1 

Absolute value 


21 


L5 S3 
22 40L 


1 03 

i 

• 


Conditional 

Left Hand transfer 


22 


id 3S3 


84 


Hold, add. 




'■■■. 26 67L 




■ 


23 


4® 2S3 
; 26 95L 


85 


Clear t add 


24 


V? 2S3 


86 


Divide 


• 


26 49L 


* 




2 5 


_L4 2S3 


~8? 


"Multiply 




22 41L 






26~ 


8l 4F 


88 


Input 


,;,.. 


26 100L 






2? 


L5 7L 


89 • 


Output 




22 137L 




.-. 


28 


L5.2L 


8JC 


Kbuat 


T J 


22 11L 






29 


- 50 1S3 


8s 


1 Store 


- 


22 252L 




* 


30 


41 S3 




4 




22 245L 


8N 


Hull 


31 


L5 7L j 








26 6l ! 
1 


8j 


Jump [Left band escape] 


32 


13 71- | 




. 




22 35L j 


^ ; 


Finish 


33 


L5 7L- 1 

1*6 21 j 
j 


s 

! 

t 


Left hand unconditional transfer 


34 


L5 2L 


! 




36 2L j 




! 



Ah 



Locmai 



55 
36 

37 
38 
39 
40 
41 
42 

45 
44 

45 
46 

4? 
48 

49 
^0 

51 



22 -59L 
5017L 
46 17L 
LI X7L 

54 F 
32 12L 
L5 2L 
36 1L 
L4 260L 
L4 15L 
22 1L 
36 33L 
26 38L 
LO 262L 
40 2S3 
V S3 I 
4o 68J / 

55 F • ?» 
50 3S3 
?4 1S3 
50 S3 
74 3S3 
40 7S3 
S5 F 

50 26lX 
74 6S3 
L4 7S3 
26 93L 
LO 5S3 
L4 265L 
40 2S3 
7J S3 
10 2F 
66 3S3 



HOTES 



From 32 



PACiE j> 



jsi* 



Form g-n and test 



General 
Entry 

FTom 35 

From 21 

From 25 



From 24 ! 



Form next selecting orders * 



X 



Multiply E +512 
(E x + 512)'- 512 



(E + 512) + J 



y i X 2 * M ^1 X 2^ *° 6S5 

(x 1 7 x + M^ + Lfrfr) 2' 39 ')2~ 59 

to A and Q 

(x 1 y 1 + (M( y;L x 2 ) + Mfr^ + Ltx^r 1 l 
2-59) 2 ~39 

To store in floating decimal acciaa. 

Divide 

Form E - 3 +2 

y * 

Form ay^A 



i 



i xpfyA)/^ 



pi nil i 



LOCATIOI 



OKDEB 

mmmmmmm 



53 

5V 

55 

56 

57 
58 

59 

60 

61 

62 

63 

64 

65 
66 

6? 
68 

69 



4o *S3 
50 1S3 
L5 S3 
10 2f 
40 S3 
S3 y 

50 2&L 

IA S3 
ko lis} 
66 3S3 
10 IF 
kO 5S3 
S5 F 
kO k63 
50 US3 
L5 5S3 

10 39F 

71 65L 

66 3S3 

JO 266X 

L5 *S3 

00 IF 

26 93L 

00 F 

80 F 

00 3F 

00 F 

36 18L 

10 IF 

40 3S3 
15 533 
LO 2S3 
kO kS3 
L3 4S3 



NOTES 
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7* - Iy/2] ♦ k 



V 



►-39 



Srcm 22, 99 Bold, add 

x/2 



Form and store E * I 



jr 



If B * * B v «o directly to add 



LOCATION 



70 

71 
72 



ORDER 



32 86L 
LI 4S3 
56 78L 

L5 5S3 
4o 2S3 





T -5.1S5 


73 


40 ^ 




85 F 


74 


1 4o 1S3 




! '10 B"-; 


75 


L5 333 




! 4o SY 


76 


l i 




j 40 3S3 J 


77 


50 ^83 ! 




; '"^ I 


78 


; 2641: j 




26 ?8L j 


7 9 


J- ?64l i 




1- IF', j 


8o 


4& 85L 




01 IF ! 


81 


I* 85L 




42 82L 


82 


L5 3S3 




10 ( )F 


83 


40 3S3 




L5 269L 


84 


LO 85L 




32 86L 


85 


L5 3S3 




10 ( )F 


86 


40 3S3 - 




01 39F 


87 


50 261L j 



Btoib 



NOTES 
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A 



ir E ' E , interchange x and y 



By 81 



By 80 



teer change x and y 



If : ; E 



TSI i : rT "' 



*kip addition 



Set ^ddre&& of *>^t orders 



Shift (integer par. ,f jS - 

(0 or l) according:^ as E «E ) is 

(eren or odd 

Test fox shift 



Shift (integer part of I -E )/2 






So 

39 

90 

91 
92 

95 
9* 
95 
96 

97 
98 

99 

100 
101 
102 
103 

104 



•> IS 7 
L4 S3 
14 3S3 
40 S3 
LL 33 
32 93L 
Id 2S3 
L4 261L 

40.2S3 
L5S3 
10 IF 
40 S3 
S5 108L 
40 1S3 
26 (38L) 
L5 3S3 
10 if' 
26 93L 
SI 153L 
10 39F 
LO 3S3 
22 95L 
10 39F 
LO 3S3 
26 6JL 
50 261L 
00 39F 
10 5F 
L4 59L 
40 1111* 
L3 93L 
42 9^L 
L5 2T3L 
40 5S3 
40 1S3 



By 103, 
146,203 



Add togetbe 
modulus 



rrODe."*' 



Scale modulus down if it is greater 
than 1/2. 



Divide modulus by 2. 



Store modulus 



(Clear, add 



Clear subtract 



From' 26 f 



Hold subtract 



Input 



according as sign is + or -. 



, 


WOdttOR 


GRDSR 


WOTS TAGS 7 i 




105 


L5 271L 
40 3S3 








106 


40 S3 

41 8S3 




Clear 8, QS3 where modulus will be 




107 


4l 9S3 
50 261L 




stored-. 




108 


81 4f 


From 9 1 *- 








LO 267L 




Tpput and test for non-decinal 




109 

110 

111 


36 120L 
50 261L 
L4 267L 
10 4F 
00 F 










00 F 


By 102 


+ D/16 




112 


50 4&3 

7J 1S3 








113 


50 ^S3 

7^ S3 




-10* 11 (+D/16) 8 


ii4 


00 3F 
40 2S3 








115 


S5 F 
50 261L 




n(8,9S3) +' (+ D/l6') 8 10~ n 




116 


7* 9S3 
L4 2S3 








117 


L4 8S3 
40 8S3 








118 


S5 F 




Store at 8/ 933 




119 


40 9S3 
50 5S3 
22 U2L 




Go to form lO^* 41 * at S3, 1S3 




120 


40 2S3 
L5 8S3 


Frcia 109 


Store (sign of exp . -10) 




121 


40 S3 
10 IF 








122 


40 8S3 




y to S3, 133 and y,/2 to 833 



L OCATIOH 

123 

12k 
125 
126 

127 
128 

129 
130 

131 

132 

133 

13k- 

135 

136 

13? 
138 
139 



OWDBt 

L5 983 
kO 133 
81 *F 
40 383 
81 \f 
50 26*71. 
Ik 333 

40 5S3 

81 i»r 

50 26TL 
ft 3S3 
L3 2S3 
32 150L 

51 191L 
26 131L 
S5 IV7L 
kO 5S3 
36 136L 
L5 2T3L 
40 3S3 
10 U 
40 433 
LT 105L 
kO 105L 
L5 27^L 

22 178L 
L5 27CL 
40 3S3 

23 133L 
10 277L 

ko 10S3 

LO 260L 
*0 11S3 
L5 159L 



Prom 129 
Froa 130 



Froa 137 



JSOBl 



PAfiK fl 



From- 131* 



From 27* 



4t 



Form decimal exponent p 



If p i°aet 10 / l6 to3, ^S3 
p < 8/16 



Set IH-OUT switch to Iff 



(log 2 lo)/* to 2$3 
10/16 to 3» 7 *63 



Output 
10S3 .» (Jftrl) 2* 19 

11S3 * (a-2) 2~ l * 
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42 258L 




Set return after store 




L5 122L 




Set address to store in 8, 9S3 


l4l 


46 7L 








26 29L 




to store 


l42 


L5 271L 
40 3S3 


From 258 




143 


40 S3 
50 273L 




Set l/lO = p 


l44 


S5 F 
40 1S3 






145 


40 4S3 








L5 130L 




Set return after multiplication 


146 


42 94L 
22 42L 






147 


50 4S3 








L5 11S3 




Count for generating 10 


148 


LO 26OL 
40 11S3 






149 


32 42L 

L5 96L 


Yes 


Is 10" n gen-rated? 


150 


42 258L 
L5 9S3 




Set return after store 


151 


42 2S3 




Set Exp = E 
y 




L5 43L 




Set address to store to 6, 7S3 


152 


46 7L 








26 29L 




To store 


153 


4l 2S3 
50 9S3 


From 258 




15^ 


S5 F 
42 2S3 






155 


L5 8S3 
10 IF 




y back to f .d. accumulator 


156 


40 S3 
S5 278L 






157 


40 IS 3 







10CXTZGB 


ORDER 


IOTBS pact: in 


, A4 


158 


L5 156L 
42 94L 
50 7S3 




Return after store 




159 

160 


4l 5S3 
S5 142L 

1|Q ^S *S 




Separate out exponent 




161 


L5 6S3 
10 2P 
40 3S3 




- .5 x lO'k) 




162 


L5 S3 




If positive go to hold add 




163 


36 22L 
26 18L 




If negative go to hold subtract 




164 


L5 8L 
42 258L 
26 29L 


From 278 


Set return after store 
$0 store at 6, 7S3 




165 


L5 13L ' 








166 


42 258L 
4l 5S3 




Reset store return 




167 


L5 7S3 
42 5S3 
L5 5S3 








168 


50 7S3 
LO 262L 








I69 


40 5S3 
L5 6S3 








170 


40 S3 








171 


S5 T 
40 1S3 
92 513F 




x to S3, 1S3 




172 


50 271L 








173 


75 S3 
40 8S3 
10 5S3 




1/10 y to 8S3 




17^ 


32 175L 
^9 3S3 




2 A° ^383 
V2 
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42BEER 
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25 177L 
L5 21% 


Fran fk 


**■*■«" KK 


176 


10 2F 

40 3S3 






17T 


L5 272L 








kO kS3 


From 175 
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L5 275L 




(log 10 2)A to 2S3 




kO 2S3 


From 135' 




179 


L3 5S3 




Exponent Conversion 




36 182L 




Test exponent for 


180 


50 2S3 
75 5S3 




If exponent 4 ° calculate 


181 


00 2F 




[Exp log 2 iol + 1 




IA 261L 




or 


182 


40 2S3 
L5 129L 


From 179* 


[Exp log^] +1 

> 


183 


42 9^L 








L3 5S3 


Fran 192 




184 


32 186L 








L4 261L 




Go to x to Multiply by appropriate 


185 


40 5S3 
50 4S3 




constant 


186 


22 42L 








Id 13L 


From 184 




187 


Up 9te 




Reset x return Df-OOT switch. 




. LI 10% 


2U* 




188 


32 198L 


in 






4o 105L 




Restore to out 


189 


L5 2S3 








L4 262L 




For» TEsp + 5123 


190 


* 40 2S3 






. 


26 29L 


*tO »tOT8 


191 


L7 S3 
L2 8S3 


Ftck 9^ 




z* 


JJ2 1851, 







kk 
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20k 
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OHDBR 
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52 196L 
50. 270L 
7J 1S3 
50 27OL 
jh S3 
00 kF 
26 93L 
L5 S3 
50 1S3 

-9° lp - 

^ 93L 

/w&3 
LO i^TlL 
lA 2.61L 
32 20^L 
L3 S3 
32 204-L 
L5 2S3 
LO 261L 
ifO 2S3 
L5 129L 
h2 9kl 
*2 193L 
L 5 ) 259L 
^0 8S3 
L!5 33 
32 209L 
92 706F 
ia LS3 
10 39F 
LO S3 
ho S3 
22 210L 
92 6^?F 



NOTES 



PAGE J. 



A- 



In 
Out 
Frctt 204 



Scale "by 10 



From 193* 



From 188 



Print 



From 200, 
201 



(Layout number) 



sign Form jxl and print 



From 206 



+ sign 



"~1 

LGCATIGI 


.j 
iMm | WOTBB iAGK 13 


210 


50 1S3 


Fran 219* 






7J 27'0L 


Fra&i 209 


t 


211 


50 S3 
JO 268L 




Form x 10/l6 


212 

■ 


fk 2"0L 








00 U 




Print a digit 


213 


82 hi 
10 IF 






21^ 


kO S3 
S5 F 








1*0 1S3 








L5 8S3 






216 


iA- 833 




Pass test for space 




kO, 8S3 






217 


36' 218L 




: 




92 963F 




Space * 


218 


L5 10S3 








LO 260L 




Bslss test to print exponent 


219 


kO 10S3 
36 210L 






220 


92 963F 




Space 




*9 3S3 




Forms E (l/lOOO + .0005) 


;: 221 


""'50 2S3 
00 30F 




r 


222 


7J 276L 






■ 


kO S3 






223 


32 226L 








92 706F 




- sign. 


22*4- 


LI 1S3 




i 




10 39F 






225 


LO S3 
^0 S3 






226 


22 227L 




Print exponent 




92 642F 




+ sign 


227 


50 1S3 







A*. 



womm 


OKDtR 




IDBB HUB 14 




7J 270L 


FT0B226 




226 


50 83 
JO 268L 






229 


7* 270L 
00 IP 






230 


82 4F 

10 if 






23X 


40 S3 




- -1 after 1st digit 




49 483 




- -1.5 after 2nd digit 


232 


L4 3S3 




• after 3rd digit 


:'.' : .' 


40 383 




. 


233 


36 3& 


Quit 






22 2271* 


■ - 


Hetum to srixtt 


23* 


ia 33 


FTW240 




. ._ , 


50 1S3* 






235 


00 IF 








40 S3 




Scale tip by 2 and adjust exponent 


236 


S5 F 

40 183 






237 


L5 233 
LO 26lL 




. 


238 


40 2S3 
19 IF 


Ytqbl 255 


Shift by 1 if 2^ - 2 -39 |y |> 


239 


LO 261L 
L2 S3 






240 


36 234L 




■ 


■V ■'■'.'■' 


L5 7L 


From 246' 




24l 


46 244L 








L4 260L 




Set stare orders 


242 


46 258L 






■: • ■' .- ' ■ 


L5 S3 






243 


50 133 
00 IF 






244 


40 (n)F 


By 24l, 


Stare 1st l/ 2 of modulus 




L5 2S3 


Frosa 246 





A.4 



TffilTTfll 
245 

246 

2kf 

248 

2k9 

250 

251 

252 

253 

254 

255 
256 

257 
258 

259 
260 
261 

2fe 



From 247 
30 



From 254 * 



flBPB 

52 255L 
41 2S3 
41 1S3 
26 27% 

53 F 
32 245L 
L5 S3 
50 1S3 

00 8f 

40 S3 
S5 F 
4o 1S3 
L5 2S3 
LO 265L 
40 2S3 
L3 S3 
36 24tl 
19 9F 
12 S3 
36 248L 
22 238L 
10 IGF 
LO 26lX 
30 256L 
01 10F 

54 F 
40 (n+l)F By 242 

By i4o, 



From 29* 

Ho 



From 245 



26 (38L) 
04 528F 
84 528F 
00 IF 
00 ? 
00 F 
00 IF 

991 



L50 



mTg 



jBICLJi 



If E < -512 , replace number ^y 



A4: 



If y « also, replace number "by C 



Shift "by 8 and adjust exponent 



Is y = 0? 



Shi 



ft by 8 if jy | < 2 



-10 



If E > 512, stop unrelentingly 
Clear it and shift left 10 

Store 2nd l/2 of modulus 
Layout number 



2 -39 






H0!CBS 


512 


x 2 Jy 


8x 


2 -39 


79 at 


2 -39 


514 


i2-» 


(-1) 




10 x 


2-39 



1 

BftGE 16 JAit 



J (1 - 2'V) 
Constant to test for shift 

10/16 

rLst 1/2 of i/io 

2nd 1/5 of 2/10 
1st 1/2 of 8/10. 
also. 2nd 1/2 of l/io 



faoggioJA 

(lflg^JA 
.516 



■ T — i — TCT ^J 



